home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Internal Edition) / Apple R&P Lib Internal v6.0.iso / 5-Fonts & Software / Applications / Canvas™ 2.1.1 / Canvas 2.1 DA™ / Canvas 2.1 DA™.rsrc / PSst_-15995 < prev    next >
Encoding:
Text File  |  1989-12-26  |  359 b   |  5 lines
  1. <                ><                >1 currenttransfer exec 0 eq{exch pop{1 exch sub}}{pop{}}ifelse settransfer
  2. /patspot {1 add 4 mul cvi exch 1 add 4 mul cvi exch patstr exch get exch 7 exch sub 1 exch bitshift and 0 ne{1}{0}ifelse}bind def
  3. /setpat {/patstr exch def 9.375 1 0 dtransform exch atan /patspot load systemdict begin setscreen end}bind def
  4. setpat
  5.